home *** CD-ROM | disk | FTP | other *** search
- ;; SYRC-OTF.flt -- Font Layout Table for Syriac OpenType font
- ;; Copyright (C) 2004, 2007 AIST (H15PRO112)
- ;; See the end for copying conditions.
-
- (font layouter syrc-otf nil
- (font (nil nil unicode-bmp :otf=syrc)))
-
- ;;; <li> SYRC-OTF.flt
- ;;;
- ;;; For Syriac OpenType fonts to draw the Syriac script.
-
- ;; Step 1: Initial, medial, or final.
-
- (category
- ;; D: Dual-joining
- ;; R: Right-joining
- ;; U: Non-joining
- ;; T: Transparent
- ;; A: ALAPH
- ;; r: DALATH, RISH, DOTLESS DALATH RISH
-
- (0x0700 0x071F ?U)
- (0x0710 ?A)
- (0x0711 ?T)
- (0x0712 0x072E ?D)
- (0x0715 0x0716 ?r)
- (0x0717 0x0719 ?R)
- (0x071E ?R)
- (0x0728 ?R)
- (0x072A ?r)
- (0x072C ?R)
- (0x072F ?R)
- (0x0730 0x074A ?T)
- (0x074D ?R)
- (0x074E 0x074F ?D)
-
- (0x0303 ?T)
- (0x0330 ?T)
- (0x0304 ?T)
- (0x0331 ?T)
- (0x0307 ?T)
- (0x0323 ?T)
- (0x0308 ?T)
- (0x030A ?T)
- (0x0325 ?T)
- (0x0324 ?T)
- (0x032D ?T)
- (0x032E ?T)
-
- (0x064B 0x0655 ?T)
- (0x0670 ?T)
-
- (0x200C ?U)
- (0x200D ?D)
- )
-
- (generator
- (0
- (cond
- ("(r)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 dalath-rish))
-
- ("(D)(T*)([DRAr].*)"
- (1 otf:syrc=init)
- (2 = *)
- (3 join))
-
- ("(T+)(.*)"
- (1 = *)
- (2 disjoin))
-
- ("(.)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 disjoin))))
-
- (join
- (cond
- ("(r)(T*)(.*)"
- (1 otf:syrc=fina)
- (2 = *)
- (3 dalath-rish))
-
- ("(D)(T*)([DRrA].*)"
- (1 otf:syrc=medi)
- (2 = *)
- (3 join))
-
- ("(.)(T*)(.*)"
- (1 otf:syrc=fina)
- (2 = *)
- (3 disjoin))))
-
- (disjoin
- (cond
- ("(D)(T*)([DRAr].*)"
- (1 otf:syrc=init)
- (2 = *)
- (3 join))
-
- ("(r)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 dalath-rish))
-
- ("(A)(T*)([DRAr].*)"
- (1 otf:syrc=med2)
- (2 = *)
- (3 disjoin))
-
- ("(A)(T*)(.*)"
- (1 otf:syrc=fin2)
- (2 = *)
- (3 disjoin))
-
- ("(.)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 disjoin))))
-
- (dalath-rish
- (cond
- ("(D)(T*)([DRAr].*)"
- (1 otf:syrc=init)
- (2 = *)
- (3 join))
-
- ("(r)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 dalath-rish))
-
- ("(A)(T*)([DRAr].*)"
- (1 otf:syrc=med2)
- (2 = *)
- (3 disjoin))
-
- ("(A)(T*)(.*)"
- (1 otf:syrc=fin3)
- (2 = *)
- (3 disjoin))
-
- ("(.)(T*)(.*)"
- (1 otf:syrc=isol)
- (2 = *)
- (3 disjoin)))))
-
- ;; Step 2: Other GSUB features (ligatures, etc.)
-
- (generator
- (0
- otf:syrc=rlig,calt,liga,dlig))
-
- ;; Step 3: GPOS features.
-
- (generator
- (0
- otf:syrc=))
-
- ;; Copyright (C) 2004, 2007
- ;; National Institute of Advanced Industrial Science and Technology (AIST)
- ;; Registration Number H15PRO112
-
- ;; This file is part of the m17n database; a sub-part of the m17n
- ;; library.
-
- ;; The m17n library is free software; you can redistribute it and/or
- ;; modify it under the terms of the GNU Lesser General Public License
- ;; as published by the Free Software Foundation; either version 2.1 of
- ;; the License, or (at your option) any later version.
-
- ;; The m17n library is distributed in the hope that it will be useful,
- ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
- ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- ;; Lesser General Public License for more details.
-
- ;; You should have received a copy of the GNU Lesser General Public
- ;; License along with the m17n library; if not, write to the Free
- ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
- ;; Boston, MA 02110-1301, USA.
-
- ;; Local Variables:
- ;; mode: lisp
- ;; End:
-